home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Freeware / PerfectPaint / rexx / Point / AnimPulsar.rx
Encoding:
Text File  |  2002-03-13  |  251 b   |  23 lines
  1. /* Point arexx test 
  2.     Anim Pulsar*/
  3.  
  4.     options results
  5.     parse ARG Port x1 y1 b
  6.     ADDRESS value Port
  7.  
  8.     pp_CountFrames
  9.     nb=result
  10.     IF nb<2 then DO
  11.         pp_Warn 'Make*an*Anim*first.'
  12.         EXIT
  13.     END    
  14.  
  15.     r=20
  16.  
  17.     do i=1 to r
  18.         pp_Circle x1 y1 i
  19.         pp_NextFrame
  20.     end
  21.  
  22.  
  23.